home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
me_cd25.zip
/
ME2MUTT.ZIP
/
BIND.MUT
< prev
next >
Wrap
Text File
|
1992-11-09
|
928b
|
39 lines
; help with bind.c
(defun
get-binding-number HIDDEN ; input: binding name
{
(int n)
(mark-and-home)(search-forward "bindings[]")
(forward-line 1)
(n 0)
(while TRUE
{
(forward-line 1)(beginning-of-line)
(if (not (looking-at '^ "')) { -1 (done) })
(if (looking-at ' "' (arg 0)) (break))
(+= n 1)
})
(swap-marks)
(n)
}
stepping-stone
{
(string name)(int n)
(beginning-of-buffer)(search-forward "defaultkeys[]")
(while TRUE
{
(if (search-forward "SYS,") () { (msg "Done.") (done) })
;; "SYS,<number><whitespace>/* <command name> [stuff] */"
(looking-at '\d+,\ +/\* \(\w+\)')
(name (get-matched '\1'))
(if (== (n (get-binding-number name)) -1)
{ (msg name " not found")(done) })
(cut-word)(insert-text n)
(update)
})
}
)
;(bind-local-key "stepping-stone" "`")